home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
BOXES
/
HISTORY
/
EXAMPLE.ZIP
/
hcbtest1.pas
< prev
Wrap
Pascal/Delphi Source File
|
1996-08-13
|
1KB
|
46 lines
unit Hcbtest1;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, HstCbo, StdCtrls, ExtCtrls;
type
TfrmTestHistoryComboBox = class(TForm)
btRead: TButton;
btWrite: TButton;
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
HistoryComboBox1: THistoryComboBox;
procedure btReadClick(Sender: TObject);
procedure btWriteClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
frmTestHistoryComboBox: TfrmTestHistoryComboBox;
implementation
{$R *.DFM}
procedure TfrmTestHistoryComboBox.btReadClick(Sender: TObject);
begin
HistoryComboBox1.ReadRegistry;
ShowMessage('HistoryComboBox filled with information from Registry!');
end;
procedure TfrmTestHistoryComboBox.btWriteClick(Sender: TObject);
begin
HistoryComboBox1.WriteRegistry;
ShowMessage('HistoryComboBox and Registry updated with information from HistoryComboBox!');
end;
end.